home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / Forum / MichaelRoth / 3-3-99 / code / ADD.SUB next >
Text File  |  1998-08-31  |  808b  |  23 lines
  1. BTB_ADD
  2.  
  3. ; A0 KlarTxt
  4. ; A1 Key
  5. ; D0 KLTXT Länge
  6. ; D1 Key länge
  7.  
  8.          movem.l    d2-d7/a2-a6,-(sp)
  9.          lea      (a0,d0),a2                     ; Endadresse des Buffers berechnen
  10.          lea      (a1,d1),a3                     ; """" des Keys
  11. .loop1
  12.          move.b   (a0),d4
  13.          add.b    (a1)+,d4
  14.          move.b   d4,(a0)+
  15.          cmp.l    a1,a3                          ; Prüfen ob Key am Ende
  16.          bhi.s    .goon                          ; wenn nein weiter
  17.          move.l   memblock2,a1                         ; ansonsten neu laden
  18. .goon                                            ;
  19.          cmp.l    a0,a2                          ; Prüfen ob Buffer am Ende
  20.          bhi.s    .loop1                         ; Nein -> nächste schleife
  21.          movem.l  (sp)+,d2-d7/a2-a6
  22.          rts
  23.